﻿Public Class TableMortaliteH_EmprunteursNA
    Inherits TableMortaliteIntegreeActuariat

    Public Sub New()
        MyBase.New("EmprunteursNA_H")
    End Sub

    Protected Overrides Function TableauNbVivants() As Double()
        Dim Values(120) As Double
        Values(0) = 100000
        Values(1) = 99651.6
        Values(2) = 99622.64817
        Values(3) = 99603.74081
        Values(4) = 99590.46166
        Values(5) = 99578.78976
        Values(6) = 99567.92091
        Values(7) = 99558.25813
        Values(8) = 99549.80196
        Values(9) = 99541.34472
        Values(10) = 99533.28918
        Values(11) = 99524.82983
        Values(12) = 99516.3694
        Values(13) = 99507.50497
        Values(14) = 99497.2742
        Values(15) = 99483.72689
        Values(16) = 99465.58617
        Values(17) = 99440.98868
        Values(18) = 99406.29738
        Values(19) = 99360.28716
        Values(20) = 99308.18677
        Values(21) = 99251.59918
        Values(22) = 99190.91773
        Values(23) = 99127.34613
        Values(24) = 99065.33455
        Values(25) = 99003.26468
        Values(26) = 98941.94852
        Values(27) = 98880.57531
        Values(28) = 98818.73808
        Values(29) = 98756.2834
        Values(30) = 98692.3603
        Values(31) = 98625.94147
        Values(32) = 98557.32999
        Values(33) = 98486.19381
        Values(34) = 98410.88776
        Values(35) = 98331.80749
        Values(36) = 98248.93958
        Values(37) = 98161.44836
        Values(38) = 98068.49303
        Values(39) = 97969.63885
        Values(40) = 97866.9714
        Values(41) = 97754.54058
        Values(42) = 97632.85958
        Values(43) = 97502.65755
        Values(44) = 97355.99015
        Values(45) = 97196.91412
        Values(46) = 97027.4277
        Values(47) = 96846.6137
        Values(48) = 96652.70012
        Values(49) = 96441.78246
        Values(50) = 96207.78453
        Values(51) = 95950.46172
        Values(52) = 95669.54078
        Values(53) = 95361.72579
        Values(54) = 95026.63712
        Values(55) = 94661.26218
        Values(56) = 94259.87627
        Values(57) = 93829.24129
        Values(58) = 93369.20771
        Values(59) = 92868.93831
        Values(60) = 92332.84858
        Values(61) = 91754.61248
        Values(62) = 91135.79648
        Values(63) = 90475.19048
        Values(64) = 89771.91963
        Values(65) = 89030.63502
        Values(66) = 88246.61256
        Values(67) = 87421.8558
        Values(68) = 86535.67851
        Values(69) = 85588.20122
        Values(70) = 84573.11035
        Values(71) = 83487.87847
        Values(72) = 82301.18203
        Values(73) = 81025.94009
        Values(74) = 79653.29511
        Values(75) = 78186.5702
        Values(76) = 76598.45207
        Values(77) = 74898.13017
        Values(78) = 73055.90719
        Values(79) = 71067.69723
        Values(80) = 68937.8386
        Values(81) = 66665.63219
        Values(82) = 64204.75032
        Values(83) = 61600.7271
        Values(84) = 58852.73476
        Values(85) = 55967.45008
        Values(86) = 52965.15755
        Values(87) = 49869.68309
        Values(88) = 46660.11612
        Values(89) = 43348.5014
        Values(90) = 40012.95371
        Values(91) = 36687.1353
        Values(92) = 33382.43233
        Values(93) = 30108.48634
        Values(94) = 26955.5499
        Values(95) = 23946.43097
        Values(96) = 21132.85464
        Values(97) = 18444.39362
        Values(98) = 15963.8506
        Values(99) = 13486.6497
        Values(100) = 11223.98882
        Values(101) = 9209.645583
        Values(102) = 7456.637182
        Values(103) = 5926.64287
        Values(104) = 4644.75309
        Values(105) = 3551.87001
        Values(106) = 2537.50007
        Values(107) = 1522.230004
        Values(108) = 0
        Values(109) = 0
        Values(110) = 0
        Values(111) = 0
        Values(112) = 0
        Values(113) = 0
        Values(114) = 0
        Values(115) = 0
        Values(116) = 0
        Values(117) = 0
        Values(118) = 0
        Values(119) = 0
        Values(120) = 0
        Return Values
    End Function

End Class
